(define (print-queue l)
  (display (car l)))
